0 PRINT"[147]":POKE53280,6:POKE53281,0
1 REM ==================================
2 REM    COMMODARES PROBLEM #52-1 :
3 REM       LATER DATE
4 REM    SOLUTION BY
5 REM       LESLIE WALDEN
6 REM ==================================
10 FOR N=1 TO 3: READ A$,B$
20 GOSUB 50: NEXT N: END
30 DATA 03/08/88, 09/16/74, 01/02/03, 01/02/04
40 DATA 08/10/80, 08/10/80
50 AV$=RIGHT$(A$,2) + LEFT$(A$,2) + MID$(A$,4,2)
60 BV$=RIGHT$(B$,2) + LEFT$(B$,2) + MID$(B$,4,2)
70 IF AV$=BV$ THEN C$="THE SAME AS "
80 IF AV$<BV$ THEN C$="EARLIER THAN "
90 IF AV$>BV$ THEN C$="LATER THAN "
100 PRINT A$; " IS "; C$; B$; "."
110 RETURN